home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / oasis / ossxmpls.lha / examples / fib.d < prev    next >
Encoding:
Text File  |  1992-03-25  |  211 b   |  14 lines
  1. class fib {
  2. method:
  3.     public      main ().
  4.     private     fib  (int N, ?F).
  5. }
  6.  
  7. fib {
  8.     main() |- fib(30,_).
  9.  
  10.     fib(N',1) :- N <= 1.
  11.     fib(N',F1+F2) |- fib(N-1,F1');
  12.                      fib(N-2,F2').
  13. }
  14.